home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops Manual / Part I.srd / Part I.srd.rsrc / PICT_81.png < prev    next >
Portable Network Graphic  |  1996-01-02  |  81KB  |  816x1056  |  8-bit (256 colors)
Labels: book | crt screen | poster | reckoner | sky
OCR: Lesson 16 Building turtle graphics program Now we can look at a graphics program, called Turtle It defines number of complex graphics curves and way you'fi be able to create mini-I Logo language out of several definitions in the program We'll have the first involv ement with Macintosh parameters and Toolbox calls Turtle Graph: ics Objects for Demo need sin dec- imal Class PEN defines turtle- -graph: ics :class PEN super{ object LC record{ These first ivars compr: ise PenState structure point PnLoc locat .on of pen point PnSi ze width height int PnMode var PnPa Lo var PnPatHi bue LG Direct: .on point home Loc 20 int maxReps 21 int initLen 22 int deltaLen change 1 len 23 int deltaDeg change angle 24 2 5 GET ^base call GetPenSt tate Save state here SET: ^base call SetPenS cate Restore from he ...